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LIBSSIG_TO_RET Library routine to convert a signal to a return 1e=30e: 1386 9}: 13: 33 yA Feah ba? ltésteae 
3 1 1 MODULE Lie3s16 -19 R I, (STITLE® Library routine to conyert ’ arenet to a return’ 
: ¢ § IDENT = ". ! File: LIBSIGRET.B Edit: 1011 
co: . 4 1 BEGIN 
Po a 
Z 8 1 REPS E SE SESE SETI TST e rir rc irri cirri citi citi ii titi ciiiiiiiiiy 
3 1 te * 
g § 8 1 !e COPYRIGHT (c) 1978, 1980, 1982, 1984 B » 
: 10 010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 1} at) 1 :* ALL RIGHTS” RESERVED. - 
; ig obi8 i ie THIS fe ‘ierhe $s FURNISHED UNDER A LICENSE AND MAY BE USED AND ag a * 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
H 15 0015 1 !* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 B38 1 !® COPIES THEREOF i NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 17 001 1 !® OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bog ! it TRANSFERRED. : 
; 0 80 0 1 is phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ¢ 80 ¢ } < CORPORAT ION. - 
: 4 0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
H 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ci 00 1 !e ® 
> 27 00 odie ® 
8 8 0028 1 PTITITITILITITTITILITIL TLL LLL TLL Tiiiiiiiiiiiiiiiii iii 
3 9 0029 1! 
tes Be lis 
: : 003¢ ; FACILITY: Utility Library 
; 4 0034 i ABSTRACT: 
: 0036 1! LIBSS1¢. TO_RET converts any signaled condition yolue into 
3 7 0037 1! an ordinary procedure return to the caller of the procedure 
3 3 sit ! which iRary rece the handler ohich nb f pe Classic” TO_RET. 
: “9 Bpeo ' ENVIRONMENT: User mode, re-entrant, AST level or not or mixed. 
; 4 004¢ 1 AUTHOR: Thomas N. Hastings CREATION DATE: 09-June-1977 
; 44 ones | MODIFIED BY: 
; 46 0046 Thomas N. stastings. 09-June-1977: VERSION 01 
> 48 048 1 | 01-06 - Change to STARLET Library. DGP 20-Apr-78 
; «649 1 ! 01-07 = Change REQUIRE files for VAX ,systee uild. DGP 28-Apr-78 
; 50 50 1! Ql- - Change STARLET to td g yy gore conflicts. DGP 1-May-78 
2: oe 051 1 ! 01-09 = Change file name to LIB IGRET. °8 and change the name of 
3 26 26 1! the REQUIRE file sim ote, 
3 > ye 1-019 = Update the copyright bn «be a JBS_ 16-NOV-78 
: e¢ bee ' 1-011 = Use prologue file. SBL 24-June-198 


7188251 


,1B$$16_TO_RET Library routine to convert a signal to a return 1b-5¢ ats 7 9}: 13: 33 yA feat” yi an iésiea Or 7hS>. 4 


7 § 1! 
! PROLOGUE FILE: 
1 
} REQUIRE "RTLIN:LIBPROLOG'; ! LIBS definitions 
1 1! 
64 1 § 1 ! TABLE OF CONTENTS: 
65 1 1! 
66 135 1 
6 1 $ 1 FORWARD ROUTINE 
08 } } LIBSSIG_TO_RET; ! Convert a signal to a return 
0 1 § 1! 
71 140 1 ! MACROS: 
ie; 141 1! 
7 8128 1! NONE 
74 14 1! 
75 0144 1 ! EQUATED SYMBOLS: 
76 0145 1! 
77 0146 1! NONE 
78 0147 1! 
79 0148 1 ! OWN STORAGE: 
80 0149 1! 
81 0150 1 
Hf 0151 1! 
8 big 1 ! EXTERNAL REFERENCES: 
84 0153 1! 
85 0154 1 


IBSSIG_TO_RET Library routine to convert a signal to a return 16-Sep-1984 75 AX=-11 Bliss-32 V4.0-74 Page 3 
eit . . 1SSen-1984 93:43:38 Haat OSAES PBs Yeats “682.1 9 (3) 
GLOBAL ROUTINE LIBSSIG_TO_RET ( ! Convert a signal to a return 
SIG_ARGS_ADR '"adr. of signal args vector 
MCH-ARGS =ADRS i Adr. of mechanism args vector 


i Value is success, unless failure from SYSSUNWIND 


+ 
FUNCTIONAL DESCRIPTION: 


LIBS$SIG_TO_RET is col ted with the erqueent list passed to a condition 
handler by’ the goneis on handling facility. It converts the 

signaled con ef on into a return to the procedure which cepted, she 
procedure which established the handler andling the signal. he 

stack is unwound to the caller of the establisher and the aR. on code 
is returned as the value in RO. 


In BLISS the argument List can be passed in toto by using the 
BUILTIN function CALLG and AP register, thus: 


status = CALLG (.AP, LIBSSIG_TO_RET); 


Or more simply by: ENABLE LIBSSIG_TO_RET (); 
If there is no need for the handler fo do any more processing 


FORMAL PARAMETERS: 
SIG_ARGS_ADR.rl.ra Adr. of signal args vector 
MCH_ARGS_ADR. ml.ra Adr. of mechanism args vector 
any other args to handler 


IMPLICIT INPUTS: 


pe jm fo lelololololelalelolololelololo) 


ed a ed dd od dd dd Sd dd td 8 


PEC IUIIUIU 


109 09 69 C9 C9 C9 SIN INNIS Om 


+ 


5 NONE 
4 IMPLICIT OUTPUTS: 
4 NONE 
4 ROUTINE VALUE: 
4, COMPLETION CODES: 
4 SSS_NORMAL if SYSSUNWIND ok, else error codes form SYSSUNWIND. 
$7 SIDE EFFECTS: 
3 Causes the stack to marked to be unwound to the caller of t 
89 establishing procedure of the handler which was called on his signal. 
8 -- 
BEGIN 
5 MAP 
SIG_ARGS_ADR: REF p.ockts ore), ! Signal vector 
MCH"ARGS-ADR: REF BLOCKC26, BYTES; i mechanism vector 


ba 
i If this is unwind condition, just let unwinding continue since 
! propably it was this handler which invoked the unwind. 


yy ar or i’ LY 1 | LA AI AIA PO POPOPUNONYD td ad ad nd ad ed md ed md HOODOO OOOCO woo SLSSSESSS 
KN BASSO AHA RUN ODO NONE UM HOOD NAME WN IOS NERO Sb cee wOo~ 
RIFF IPIPIPIN IA at at a rt ar re a ee ee ee a ee ee ee ed ed ed ed ed 
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IBSSIG_TO_RET Library routine to convert a signal to a return 16-Sep-1984 01:13:5 AX-11 Bliss-32 V4.0-74 Page 
ett . ° ogee 1386 93:45:33 HeNanteOSAEST Tas late o$2-1 . 
is 8 Bhs 
3 178 ie IF .SIG_ARGS_ADRECHFSL_SIG_NAME] EQL SSS$_UNWIND THEN RETURN SS$_NORMAL; 
; 148 1 1+ 
; 192 18 Copy condition value to saved image of RO 
; 131 1 
3 138 9 MCH_ARGS_ADRCCHFSL_MCH_SAVROJ = .SIG_ARGS_ADRCCHFSL_SIG_NAME); 
: 154 ‘+ 
3 12? g ! Set to unwind stack using default depth and default new PC, 
: 137 ¢ } namely return to caller of the procedure which established the handler 
; 158 
; 159 8 § RETURN SUNWIND (); 
; 160 8 1 END; ! End of LIBSSIG_TO_RET routine 
-TITLE LIBSSIG_TO_RET Library routine to convert a sig 
; nal to a return 
-IDENT \1-011\ 
-EXTRN SYSSUNWIND 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
0000 00000 -ENTRY LIBSSIG_TO_RET, Save nothing 3; 01 
=" 51 04 AC 00 Bp Obs MOVL SIG_ARGS_ADBR, R1 ; 02 
. 00000920 = 28F 04 Al 01 00006 CMPL 4(RT), #2336 3 
04 . 0000 BNEQ 1$ 3 
50 01 OD on8 MOVL #1, RO 3 
04 000 RET ; 
50 08 AC DO 00014 1$: MOVL MCH_ARGS_ADR, RO 3; 0220 
oc AO 04 Al D0 000 MOVL  4(RT), 12(ROS : 
7E 7C 000 CLRQ -(SP) 3; 0227 
000000006 00 02 FB 000 CALLS #2, SYSSUNWIND 3 
04 000 ET : 0228 


; Routine Size: 


39 bytes, 


Routine Base: 


-LIBSCODE + 0000 


TEE 


HK ZOMMOOWZ EF ACH IO MMOS EF ACH ILO MMOOWM!S ES ACH ITO MMOOOZ Er ACH TA WMIOW 


L185516_10_ReET Library routine to convert a signal to a return 16-50 ety 7 04:43:38 wen’ ui ss fisleaty a 2:1 Page 


; «16 0229 1 END ! End of module LIB$SIG_TO_RET 

: 16 $389 0 ELUDOM GZ 

H PSECT SUMMARY 

: Name Bytes Attributes 

; LIBSCODE 39 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

; oo------ Symbols ------ oo Pages Prucecsing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:00.7 

; _~$255$DUA28:CLIBRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.0 

; COMMAND QUALIFIERS 

: BLISS/CHECK =F IELD. INITIAL OPTIMIZE) /MOTRACE/L 1So1. 15831 IBSIGRET/OBJ=08JS:L IBSIGRET MSRC$:LIBSIGRET/UPDATE=(ENHS$:LIBSIGRET 
3: Size: 39 code + 0 data bytes 

3; Run Time: : 

; Elapsed Time: 09: 14.6 

3 Lines/CPU Min: 160 

3; Lexemes/CPU-Min: 1 38> 

: penety Used: 34 pages 

3; Compilation Complete 


ION 
RY 
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